Mathematica
8 integrates fully automated graph layout and provides functions for the aesthetic drawing of graphs:
